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MODULE PASSWRITE_REALF_F ( &TITLE ‘Writ F_floating in F f : 
DENT : }<B0d! e an F_floating in ormat 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND C 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WIT 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE ARE OR ANY 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE T 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS H 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
4 onhpoket ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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ie SOFTWARE ON EQUIPMENT WHIC 
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SOORESISASSRSNARASHSSRRNOSAAI HERONS TEIN CERO URINE NOT IUE TEN ERO TREE NORONDS 


BILITY FOR THE USE OR RELIABILITY OF ITS 
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H IS NOT SUPPLIED BY DIGITAL. 


++ 
FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains a procedure which writes an F_floating in 
fixed-point notation to a textfile. 


ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 


1-001 - Original. SBL 1-April-1981 
1-002 - Make total-width a longword. SBL 30-June-1982 


! File: PASWRIRFF.B32 Edit: SB8L1002 
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! Externals, Linkages, PSECTs, structures 


! Write to textfile 
! Write to string 


és 


_F: NOVALU 


REALF 


paceunl tee kek, F: NOVALUE 


PROLOGUE DEFINITIONS: 
PASSWRITE 


TABLE OF CONTENTS: 

FORWARD ROUTINE 
EQUATED SYMBOLS: 
OWN STORAGE: 


Declarations 
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PASSWRITE_REALF Write an F_floating in F format 16-Sep-1984 02:24: AX-11 Bliss-32 V4.0-74 P 
1002 PASSWRITE_REALF _F : Write F floating in F forma 10808-1382 95:83:85 PASRTL. RESPASURIREE 89251 ~— ; 


gserhy "PASSWRITE_REALF_F = Write F_floating in F format to textfile’ 


SIDE EFFECTS: 
If the file is the standard file OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 


LINTOOLON = Line too tong . : 
NEGWIDDIG = negative Width or Digits specification is not allowed 


w 


: Set ak 
; 145 1 PFV: REF SPASSPFU_FILE~VARIABLE, ! File variable ; 
3; 8 B168 1 VALUE, ! Value to write ‘ 
3; 8 Bié 1 TOTAL_WIDTH: SIGNED, ' Total field width ; 
Ba 148 1 FRAC _BIGITS: SIGNED, ! Digits in fraction : 
; 88 0149 1 ROR ! Error unwind address ; 
; 8120 1 ): NOVALUE = ; 
; 0151 1 $ 
s; 91 8126 1 !+4 : 
; 8127 ; FUNCTIONAL DESCRIPTION: : 
; S188 1! This procedure writes an F_floating value in fixed-point notation : 
3; 9 0156 1! to the specified textfile. . 
; 0157 1! 3 
H 97 0158 1 ! CALLING SEQUENCE: : 
; «98 0159 1! 3 
3 99 0160 1! CALL PASSWRITE_REALF_F (PFV.mr.r, VALUE.rf.v , TOTAL_WIDTH.rl.v, ; 
; 190 0161 ! FRAC_DIGITS.rl.v C, ERROR. ja.rJJ) : 
H 106 S168 1 ! FORMAL PARAMETERS: : 
s 10 0164 1! ; 
; 104 0165 1! PFV - The Pascal File Variable (PFV) passed by reference. : 
3 +4 3196 : } The structure of the PFV is defined in PASPFV.REQ. : 
3; 107 0168 1! VALUE - The F_floating value to write. 

: 108 0169 1! ; . 

; 109 0170 1! TOTAL_WIDTH - Total field width. : 
; 110 0171 1°! 

: ‘i brs ’ } FRAC_DIGITS - Number of digits in fraction. 

3 11§ bige : ERROR - Optional. Address to unwind to if an error occurs. | 

3s 115 0176 1°! IMPLICIT INPUTS: 

: 116 0177 1! 

3 (117 0178 1! NONE 

s 118 0179 1! 

; «119 0180 1 ! IMPLICIT OUTPUTS: 

: 120 0181 1! 

3; 121 gi36 1! NONE 

3 136 0183 1! 

s Ye 0184 1 ! ROUTINE VALUE: 

> 126 0185 1: 

3 6125 bi36 1! NONE 

; 126 187 1! 

3 44 0188 1! 

: 128 0189 1! 

: 129 0190 1! | 

3: 130 0191 1°! | 

3: «131 3b 4 1! 

3 13 0193 1! 

. os 01946 1! 

3: «134 0195 1! | 

ae B138 1! 

ea 197 1 !- 

= 2 0198 1 

3; 1 0199 2 


eer 


BEGIN 
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PASSWRITE_REALF te an F_ floating in F format 1e-se 1984 02:24: AX-11 Bliss-32 V4.0-74 Pa 4) 
\- SWRITE_REALF _F : Write F_floating in F forma 1a-Sep-19 4 95:85:85 PASRTL SREIPASURIREF 89251 7 (3) 
BUILTIN 
ACTUALCOUNT; 
OCAL 
FCB: REF SPASS$FCB_CONTROL_BLOCK, ! File control block 
FIELD WIDTH ! Minimum/actual field width 
REMAINING WIDTH i Width remaining on Line 
PFV_ADDR: “VOLATILE, i Enable argumen 
UNWIND_ACT: VOLATILE, ! Enable argument 
ERROR_ADDR: VOLATILE; ! Enable argument 
ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


1+ 
Get ERROR parameter, if present. 
. ae () GEQU 5 
ERROR_ADDR = .ERROR; ' Set unwind address 
PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 


14 
Validate PFV and get PFV. 


+ 
Set unwind action to unlock file. 


UNWIND_ACT = PASSK_UNWIND_UNLOCK; 


14+ 
Do common initialization. 


SOWONAOUNEWN (OO ONAUES WN OO ODNAUES WN "OO ONAULS WN OO” 
SODONAOUE WN $$ O OONAUE WN 0 OONOAOUES UR! OO ODNOUE WN Oo 


PASSSINIT_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB); FCB); 


\+ 
! Get minimum and maximum field widths. Check for valid field width 
and number of digits. 


0909 09 08 SII NN IN NNN NIA AAA AAA AAAMMMIMIMIMIUNIVMIMIUI ES BS EEE PEEL EW ME 


TPOPOIPIPINIPIPYNINYNYINIPININININYIPYINIPOPYNIP PoP NoPononononopopofronyoponononopofnorororornr 


POPIMOMIPIPINY nm MOPINS >a 


wn 


BEEBE ES FANNING RINPNINPINONPININID 2 2 4 OO OO S| SM DOOODOOCOCOCOCSO M-- 


FIELD WIDTH = .TOTAL_WIDTH; 
a LSS°0) OR (.FRAC_DIGITS LSS 0) 
SPAS$IO_ERROR (PAS$_NEGWIDDIG,0); 
REMAINING_WIDTH = .FCB TFCBSA_RECORD_END) - .FCB CFCBSA_RECORD_CUR]; 


+ 
Do the convert. If it fails, signal an error. 


vy? 
ee a a a aa a a a td ed a kd et a = = = = = as = 2s 2 2 2 2 tS SS SS S 


RALLSSELETE 


oO 
“ 
Te ee in ee eer we ele wlolelo loo lololololol ole ololololololololololelololol~ mm | ™ 


2 
; 
; 
3 
; PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 
3 
2 
2 
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PASSWRITE_REALF Write an F_floating in F format 1b-se -1984 224: AX-11 Bliss-32 V4.0-7 Pp 5| 
1-002 PASSWRITE REALF _F : Write F_floating in F forma 14- ~$00 138% 95:85: 66 PASRTL.SRC PASWRIRFF. 5 2:1 sk (3) 
; 196 7 
; 197 o 34 IF NOT PASSCVT_F_T wae = Be te comeert 
: 198 B Crcesa _RECORD_CURI, | Dest na 
3; 199 0260 WIDTH, rage be tual width 
: soy 8 61 FIELD UIT WIDTH, hab eee width 
: 8} 8 66 nen -FRAC_DIGITS) i Fraction digits 
: 208 8 ee SPASSIO_ERROR (PAS$_LINTOOLON,1,(.FIELD_WIDTH=.REMAINING_WIDTH)); | 
: 205 0266 14 
; 206 026 | pean buffer pointer. 
: | 
: 209 0270 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + .FIELD_WIDTH; 
BP Be | 
; sig 0978 “call WRITE epilogue routine to move the Last arene written to the | 
s 2} 0274 § _user" s buffer and to unlock the file variable 
3 6214 0275 ! 
, 215 0276 2 
; 216 0277 2 PASSSEND_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB)); 
3s 27 0278 2 
; 218 0279 § RETURN; 
; 219 0280 
; 220 0281 1 END; ! End of routine PASSWRITE_REALF _F 


‘TITLE PASSURITE_REALF_F Write an F_floating in F form 
a 
.IDENT \1-002\ 


-EXTRN PASSWRITE_REALF _F 
~EXTRN PASSWRITEV_REALF_F 
$$10_ HANDLER 


01FC 00000 ~ ENTRY POSOUR ITS PEALE SF . Save R2,R3,R4,R5,R6,R7,- : 0144 
58 000000006 00 5 $3968 HOvA PASSSSIGNAL , RB 
04 AE 000C CLRQ ERROR ADDR + 0199 
6 oar tO ‘ NSE MOVAL S$. 7CFPD 
05 6¢ of $019 CMPB. ss (AP), : 0219 
1F O01, BLSSU. ‘1 ; 
04 AE AC 00 1¢ MOVL ERROR, ERROR_ADOR 2 oss 
56 be AC 4 0021 1$: MOVL PFV, 3; 0223 
0c AE 8 9 Bh 5 MOVL R6, PFV_ADDR i 
, 000000006 6 0029 JSB PASSSVACIDATE_PFV : 0 39 
08 1 9 O02F MOVL J ite AC ; 0255 
F 900000006 0 16 00033 JSB PASSSINIT_QRITE ; 0241 | 


| 
| 
| 
| 
PSECT PASSCODE.NOWRT, SHR, PIC.2 
| 
| 
| 
| 
| 
| 
} 


221 ocee 1 
; 222 0283 1 !<BLF/PAGE> 


d 8 
PASSWRITE_REALF Write an F_ floating in F for 16-Sep AX-11 Bliss-32 V4.0 Page 6. 
1-002 PASSWRITE_REALF _F 3 Write F ritoating in F forma 14-Sep 71382 95: $3 §$ PASRTL.SRCIPASWRIRFF . 5 2:1 9° «35 
6E 0c at D 0 9 MOVL  TOTAL_WIDTH, FIELD_WIDTH : 0248 F 
0 1 D BLSS + 0249, ; 
10 AC D 6 F TSTL  FRAC_DIGITS : | : 
QA 1 042 BGEG 38 : | ; 
E pA 44 2$ CLRL + 0251 : 
7 006 BF A 046 MOVZBL PPASSK_N NEGWIDDIG, -(SP) : ; 
6 2 FB D044 CALLS #2, PASSS$SIGNAL : : 
52 FO A? EC A? C3 0004E 3$ SUBL3 “20(F CB) -16(FCB), REMAINING WIDTH : 0252 | ; 
10 AC DD 9094 PUSHL FRAC T : 026 ; 
5 bp 057 PUSHL REMAINING WIDTH : 0261 H 
08 AE F 00099 PUSHAB Uber D WIDTH : 0298 ; 
EC aA? DD 0005c PUSHL -20(FCB) + 0259 ; 
08 AC 9F 0005F PUSHAB VALUE : 0258 : 
000000006 00 Q F 9068 CALLS yee PASSCVT_F_T : ; 
OE 9 EB 0006 BLBS ; : : 
7E a3 32 C3 9006¢ SUBL3 REMAINING. WIDTH, FIELD_WIDTH, -(SP) + 0264 ; 
7E 006 9A ited MOVZBL #PASSK L INTOOLON, -(SP) : F 
68 03 FB 90076 CALLS #3, PASSS$SIGNA : : 
04 00079 RET : : 
EC A? 6E CO 0007A 4$ ADDL2 FIELD_WIDTH, -20(FCB) : 0270 F 
000000006 00 16 0007 JSB PASSSEND_WRITE + 0277 F 
04 00084 RET > 0281 : 
0000 00085 5$ .WORD Save nothing + 0199 : 
50 08 ac 00 00087 MOVL  8(AP), RO ; | ; 
50 04 AO 00 00088 MOVL  4(RO). RO : ; 
F4 AO 9F OOO8F PUSHAB ERROR ADDR ; : 
FB AO OF B08 PUSHAB UNWIND ACT : | 3 
FC AO 9F 0009 PUSHAB PFV_ADDR : ; 
03 DD 00098 PUSHL # : 3 
SE DD O009A PUSHL SP ; : 
7E 04 AC 7D 0009C MOVQ 4(AP), =(SP) : ; 
000000006 00 03 FB 000A0 CALLS #3, PASSSIO. HANDLER ; ; 
04 000A7 RET : ; 
; Routine Size: 168 bytes, Routine Base: _PASSCODE + 0000 : 
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PASSWRITE_REALF Write an F_floating in F format 18-Sep-19 r 06:94:86 AX-1 


W % F 1 
1-002 PASSWRITEV-REALF fF -= Write F_floating in F form 14-Sep-19 2: PASRTL 


4 1 XSBTTL ‘PASSWRITEV_REALF F = Write F_floating in F format to string’ 
GLOBAL got hy PASSWRITEV_REALF_F ( 


X LENGTH: WORD, 
STRING LINE: REF VECTOR C, WORD], 


TOTAL WIDTH: WORD SIGNED, 
FRAC _BIGITS: SIGNED, 
ERROR 


) : NOVALUE = 


Maximum Length of string 
String to write to 
Value to write 

Total field width 

Number of fraction digits 

Error unwind address 


14 


1e4¢ 
: FUNCTIONAL DESCRIPTION: 


This procedure writes an F_floating in fixed-point format 
to the specified string. 


CALLING SEQUENCE: 


pew ololeolololelolelololo) 


TOPIPOPIPOPUNINONININO POPP Nonopononofnononononofrunonyd 


WEBER REESE EWWWIwwnoropononony) 


WN O OONA VE WN O OONOAUES WHO OONOUE WN OVOONOUSE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1! 
1! 
1 1 

0 1! 

0 1! 

03 1! 

03 | CALL PASSWRITEV_REALF_F (MAX_LENGTH.rw.v, STRING_LINE.wvt.r 

Bg : VALUE.rf.v, TOTAL_QIDTH.rw.v, FRAC_DIGITS.rl.v CL, ERROR.j.rJ) 

05 FORMAL PARAMETERS: 

030 MAX_LENGTH - The maximum Length of STRING_LINE. 

34 : ; STRING_LINE - A varying string to which the output will be appended. | 
$2 b3 ’ | VALUE - The value to write. | 
33 83 : ; TOTAL_WIDTH - The width of the field to write. | 
$2 O3 : FRAC_DIGITS - The number of digits in the fraction field. | 
52 03 1/ ERROR - Optional. If specified, the address to unwind to | 
$2 b3 8 : } in case of an error. 

6 0320 1 ' IMPLICIT INPUTS: | 
6 0321 1! 

Bode 8 | Medhop 
64 $354 1 ' IMPLICIT OUTPUTS: 
65 0325 1! 

66 0368 ! NONE 
68 0338 ROUTINE VALUE: 
20 By NONE 
i . 
z 3 ¢ : SIDE EFFECTS: 
iene 
? 6 ! SIGNALLED ERRORS: 
78 8 1! See PASSWRITE_REALF_F 
79 91! 
80 40 1 !-- 
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Write an F 


PASS 


Ft ee 
wr 
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MEUM OOONAUS WO 00 we 


AOA 
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Loating in ormat 1 
EALF _F = Write F_floating in F form 1 


BEGIN 


LOCAL 
PFV: SPASSPFV FILE 
ARG_LIST: VECTOR (5 
PFV-ADDR: VOLATILE 
UNWIND ACT: VOLATI 
ERROR_ADDR: VOLATI 


Ane. 
LONGI, 


Vv 
ce, 
LE: 


BUILTIN 
ACTUAL COUNT; 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ 


'¢ 
Get ERROR parameter, if present. 


IF ACTUALCOUNT () GEQU 6 
ERROR_ADDR = .ERROR; 
PFV_ADDR = PFV CPFVSR_PFV; 


14 


Set up ARG_LIST. 


ARG_LIST [0] = 4; 
ARG_LIST C1) = PFv CPFVSR_PFV); i 
ARG_LIST = .VALUE; i 
ARG_LIST = . TOTAL WIDTH; i 
ARG-LIST (4) = .FRAC_DIGITS: i 


'4 
' Call PASS$DO_WRITEV to do the work, 
PASSWRITE_REALF_F to call. 


PASS$S$DO_WRITEV (PFV CPFVSR_PFV], .MAX_ 
PASSWRITE_REALF_F); 
RETURN; 


r¢ 0 

* Fe Bee 

AE me 807 
CF DE QOO0A 


04 
6D 0043 


8 
w$ep-1986 19:53:09  EPASRTLeSRESPASURIAF? .082; 1 eng 


Pascal File Variable 
Argument List 

Enable argument 
Enable argument 
Enable argument 


Count of arguments 


ACT, ERROR_ADDR); ! Enable error handler 


Set unwind address 
Set PFV address 


Four arguments 
PFV address 

Value to write 
Width of field 
Fraction digits 


giving it the address of 


LENGTH, STRING_LINE (COJ, ARG_LIST, 


! End of routine PASSWRITEV_REALF _F 
.EXTRN PASS$S$DO_WRITEV 

.ENTRY PASSWRITEV_REALF_F, Save R2.R3.R4,R5,R6 

SUBL2 

CLRL ERROR_ADDR 

CLRO NWIND_ACT 

MOVAL 2$, (FP) 


Pe ee eeees 
oO 
Ww 
Py 
~Nm 


0388 1 
0389 1 !<BLF/PAGE> 


+86 AX-11 Oi fogs =32 V4.0-74 Page 9 
: SRCJPASW 
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8 
PASSWRITE_REALF Write an F_floating in F form 1S-se 1984 02:24 
et 4 PASSWRITEV-REALF _F fre Write F mt loating in F form 12786871383 9:83 
06 C OOF CMPB 
4 } 12 BLSSU 
6E 8 AC go 14 MOVL 
oe AE! OG BB BOOID move” 
16 AE 30 AE 3 1 MOVAB 
146 AE Cc 6AC 3 026 MOVL 
OM ie OM apa gait 
ot Eee ts 
AE 9 MOVAB 
1 G2 oee ae 
52 04 AC 3C 00046 MOVZWL 
000000006 00 i Ben 
0000 00051 2$: . WORD 
50 08 ac 00 $0083 MOVL 
50 04 ad 00 aie MOVL 
DO 8=6AO 6 9F 00058 PUSHAB 
D4 AO 9F QOOSE PUSHAB 
D8 AO 9OF $469 PUSHAB 
93 DD 00064 PUSHL 
E 33 B08 PUSHL 
7E 04 AC 7D 0006 ova 
000000006 00 03 FB 0006C CALLS 
04 00073 ET 
; Routine Size: 116 bytes, Routine Base: _PASSCODE + O0A8 


PASRTL. RIRFF .B52;1 (4), 
(AP), #6 ; 036 
1$ 


ERROR, ERROR_ADDR 
PFV, PFV_ADDR 


OTAL RG. 1ST+1 
FRAC DIGI RG-LIST+1 
pReSORITE “REALE F F, RS 
ARG_LIST, 

PFV 

ST TRING LINE, af 


MAX_LERGTH 
PASS$DO CuniTed 


pexg,” nothing 
RO 


4(AP), =(SP) 
#3, PAS$$10_ HANDLER 


H 
PASSWRITEVIREALF_F = Write F mt toating in F form 1 PASRTL.SRCJPASWRIRFF 
; Hf o338 END ! End of module PASSWRITE_REALF_F 
‘ 92 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 284 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


Tn reas” ete ere ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 
; “3532S DUAB: CPASRTL.OBJJPASLIB.L32;1 427 97 22 33 00:00.4 
; COMMAND QUALIFIERS 


PRSSESSMESE OSE LS, EE TIAL APT TET TRALEE TO SSS P RIOR LY PERE ERIS SPRUE? MSRC$:PASWRIRFF /UPDATE=(ENHS: PASWRIRF F 


0 data bytes 


Run 

Elapsed Hast 

Lines/CPU Min: 8 
eee hk tile) 12624 
poner? Used: 82 pages 
Compilation Complete 


eA SURITE_ REALF Write an F of toat ing in F form 19-8 sep 9° 138% 96: g3: 38 AX-11 Bliss-32 V4 a ii Page 10) 


(5) 


v 
> 
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